home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Telecom / Internet / Internet N-Z / The Script Pack ƒ / OnLine Scripts / OnLine Dialing Script next >
Encoding:
Text File  |  1995-02-21  |  1.5 KB  |  59 lines  |  [TEXT/MSWD]

  1. !ONLINE DIALING SCRIPT  Version 1.1                    January 21, 1995
  2.  
  3.  
  4. !©1995 by John Hayes (jhayes@world.std.com). This 
  5. !script may be freely distributed as long as this copyright notice is 
  6. !not removed. 
  7.  
  8. !***********************************************************************
  9.  
  10. !See the "README" file in the "OnLine Scripts" folder for instructions 
  11. !for the use of this script.
  12.  
  13. !***********************************************************************
  14.  
  15.  
  16. !ORIGINATE MODULE
  17.  
  18. !This script runs when you click on the "Connect" button. At the end of 
  19. !this module, InterSLIP continues with the OnLine Gateway Script. 
  20.  
  21.  
  22. @ORIGINATE
  23. note "connecting to host"
  24. serreset 57600 0 8 1
  25. pause 30
  26. exit 0
  27.  
  28. !CHANGE ABOVE, IF NECESSARY - SEE README FOR INSTRUCTIONS
  29. !The speed in "serreset" must be the same serial port speed you have set 
  30. !in InterSLIP and your communications program (Z-Term, Microphone, etc).
  31. !If your modem will not work at 57600, change the setting in Z-Term, etc 
  32. !to 19200 and change the 57600 above to 19200. Do not use serial port 
  33. !settings of 38400, 28800 or 14400, since serreset will not recognize !them. 
  34.  
  35. !*********************************************************************
  36.  
  37. !HANGUP MODULE
  38.  
  39. !This script runs when you click on the "Disconnect" button. 
  40.  
  41. @HANGUP
  42. @LABEL 51
  43. pause 1
  44. note "exiting TIA"
  45. pause 1
  46.  
  47. !sends 5 ASCII "03" characters during 2.1 
  48. !seconds to exit from TIA,
  49.  
  50. write "\03\03\03"
  51. pause 21
  52. write "\03\03"
  53. pause 45
  54. note "please close InterSLIP/open comm pgrm".
  55. pause 30
  56. note "Idle"
  57. pause 10
  58. exit 0
  59.